home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / cybergfx / cyberupdate2.18 / tools / cyberprefsx < prev    next >
Text File  |  1996-02-26  |  30KB  |  763 lines
  1. ;********************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;
  10. ; $VER: 3.6 (Jan-26-96)
  11. ;                                                   /_/
  12. ; CyberPrefsX  ©1994,1995,1996 by Robert C. Reiswig
  13. ; [was: CGraphXPrefs & EnvSettings & ChangeSettings]
  14. ;
  15. ;
  16. ; This was done for Frank Mariak for use with the
  17. ; Commercial release of CyberGraphX from Phase5, Germany
  18. ;
  19. ; Suggestions or problems: rcr@netcom.com
  20. ;--------------------------------------------------------------------------------
  21. ;
  22. ;********************************************************************************
  23.  
  24.  
  25. ;********************************************************************************
  26. ;
  27. ; Read All System information
  28. ;
  29. ;********************************************************************************
  30. (if (= @user-level 0) (set @user-level 2))
  31.  
  32. (set lan 1)
  33. (if (> (exists ("env:Language")) 0)
  34.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  35. )
  36.  
  37. (set CyberDrawer "CyberVision:") (set were "sys")
  38.  
  39. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  40. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  41. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  42. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  43. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  44. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  45. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  46. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  47. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  48. (if (> (exists ("sys:devs/monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  49. (if (> (exists ("sys:devs/monitors/Merlin")) 0)      (set #BGuess 9)  )
  50.  
  51. ;********************************************************************************
  52. ; For some reason people seem to loose this directory
  53. ;********************************************************************************
  54. ;(if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  55. ;(if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  56.  
  57. (if (= FrankIsTheKingOfSwing 46) (welcome) )
  58. (set ja 0)
  59. ;********************************************************************************
  60. ;
  61. ;English Information
  62. ;
  63. ;********************************************************************************
  64. (set #currset "\n\nShould this option be enabled ?")
  65. (set #changeenv "Set/Explain/Change Environment Varibles")
  66. (set #changemonitor "Set/Change Default Monitor Setting")
  67. (set #changecv "Set/Change ToolType for CVMode")
  68. (set #askchange "Please Select what option you would like to change.")
  69. (set #askwereisCVMode "Please Select the CVmode program. This way the installer can get the correct path to the 'CVMode' file")
  70. (set #noicon "\n\nThe installer could not find the '.info' file for CVMode.  Please re-copy or install the CVMode Program")
  71. (set #board (cat "\nPlease Select the Graphics Board you have.\n"))
  72. (set #yes "Yes - On")
  73. (set #no "No - Off")
  74. (set #youwantto "You want to set:")
  75. (set #to "To:")
  76. (set #board (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))
  77. (set MonitorIS "A Custom Setting File")
  78. (set #lookslikemonitor (cat "Select the Monitor Setting File You wish to use. "
  79.                             "If you are not sure on what the Max your monitor can handle is, "
  80.                             "quit and look it up in the monitor manual! It looks like it is set to: "
  81.                        )
  82. )
  83. (set #quickchangeenv "Quick Set/Change Environment Variables ")
  84. (set #currenv "\nCurrent Settings for Environment Variables\n")
  85. (set #quit "Quit")
  86. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  87.                   "By setting this variable, the planar-to-chunky conversion "
  88.                   "will be done by the CPU (in contrast to the blitter conversion) "
  89.                   "Therefore the ugly looking "planar" blitting effects are gone, "
  90.                   "but the software conversion is slower. Do you wish to Enable this feature?"
  91.              )
  92. )
  93. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  94.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  95.                      "become Hires-sprites (they are no longer doubled by "
  96.                      "the CyberGraphX-Software). "
  97.                      "This variable is identical to the tooltype HIRESSPRITE "
  98.                      "of older Picasso-monitor files."
  99.                 )
  100. )
  101. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  102.                      "By setting this variable, you can switch off 15bit modes to reduce "
  103.                      "screenmode list length. The Modes are still available but hidden."
  104.                 )
  105. )
  106. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  107.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
  108.                      "will be placed on an CyberGraphX screens."
  109.                 )
  110. )
  111. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  112.                      "By setting this variable, 8 bit deep screens are always opened "
  113.                      "in Fast memory. Useful with 1MB chip systems but you should "
  114.                      "avoid it with 2MB chip, because the older method is more "
  115.                      "compatible (no taglist changes etc.) "
  116.                 )
  117. )
  118. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  119.                      "With this option on, non displayable planar bitmaps "
  120.                      "are allocated in fast memory. This options speeds up "
  121.                      "handling of planar bitmaps but could lead to problem s"
  122.                      "with amiga graphics which insist on planar graphics "
  123.                      "placed in chip memory. Take care when using this option."
  124.                 )
  125. )
  126. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  127.                     "If this option is enabled, the monitor switch on every "
  128.                     "CyberGraphX supported board is deactivated. This option is "
  129.                     "required for multi monitor systems."
  130.                 )
  131. )
  132. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  133.                      "If this option is disabled, everytime a CyberGraphX display "
  134.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  135.                      "to increase chipmem access speed. You can avoid this by enabling "
  136.                      "this option. "
  137.                 )
  138. )
  139. (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  140.                      "If this option is disabled (set to 'No - Off'), the CyberGraphX Bootlogo "
  141.                      "will not be shown at boot time."
  142.                 )
  143. )
  144. (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  145.                      "If this option is on, CyberGraphX will reduce memory consumption in less or equal 16 colour "
  146.                      "modes, CyberGraphX keeps a planar representation of the screen "
  147.                      "bitmap in fastmem and a chunky representation in video memory."
  148.                 )
  149. )
  150.  
  151.  
  152. ;********************************************************************************
  153. ;
  154. ;German Information
  155. ;
  156. ;********************************************************************************
  157. (if (= LAN 0)
  158. (
  159.  
  160. (set #currset "\n\nSoll diese Option aktiv sein ?")
  161. (set #changeenv "Setzen/Ändern von Umgebungsvariablen")
  162. (set #changemonitor "Setzen/Ändern der Standard Monitor Einstellungen")
  163. (set #changecv "Setzen/Ändern des ToolTypes für CVMode")
  164. (set #askchange "Bitte wählen Sie, welche Einstellungen Sie ändern möchten.")
  165. (set #askwereisCVMode "Bitte wählen Sie das CVmode Programm aus, damit das Installationsprogramm den korrekten Pfad von CVMode herausfinden kann.")
  166. (set #noicon "\n\nDas Installationsprogramm konnte die '.info' Datei für CVMode nicht finden.  Bitte kopieren oder installieren Sie CVMode erneut.")
  167. (set #board (cat "\nBitte wählen Sie Ihre Grafikkarte aus.\n"))
  168. (set #board (cat "\nBitte wählen Sie die Grafikkarte aus, die Sie mit CyberGraphX benutzen:\n"))
  169. (set MonitorIS "Eine selbst definierte Einstellungsdatei")
  170. (set #lookslikemonitor (cat "Bitte wählen Sie die Datei aus, die Sie benutzen wollen. "
  171.                             "Wenn Sie sich nicht sicher sind, welche Werte Ihr Monitor verarbeiten kann, "
  172.                             "schauen Sie bitte unverzüglich im Handbuch nach! Es sieht so aus, als wenn es eingestellt ist auf: "
  173.                        )
  174. )
  175. (set #yes "Ja")
  176. (set #no "Nein")
  177. (set #youwantto "Sie wollen die Änderung von:")
  178. (set #to "auf:")
  179. (set #quickchangeenv "Schnelles Setzen/Ändern der Umgebungsvariablen")
  180. (set #currenv "\nMomentane Einstellungen der Umgebungsvariablen\n")
  181. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  182.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  183.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  184.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  185.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  186.              )
  187. )
  188. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  189.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  190.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  191.                      "verdoppelt). "
  192.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  193.                      "in der alten Picasso software)."
  194.                 )
  195. )
  196. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  197.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  198.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  199.                 )
  200. )
  201. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  202.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
  203.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  204.                 )
  205. )
  206. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  207.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  208.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  209.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  210.                      "alte Methode in einigen Punkten kompatibler ist."
  211.                 )
  212. )
  213. (set #EnvAbort (cat "\n\nEnvSettings konnte keine der Einstellungen finden."
  214.                     "\n\nSind Sie ein registrierter User?  Insofern Sie es sind, müssen "
  215.                     "Sie \"CyberGfx_Install\" aufrufen um die Variablen richtig zu setzen."
  216.                )
  217. )
  218. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  219.                      "Ist diese Option aktiv, werden nicht darzustellende "
  220.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  221.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  222.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  223.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  224.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  225.                 )
  226. )
  227. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  228.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  229.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  230.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  231.                 )
  232. )
  233. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  234.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  235.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  236.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  237.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  238.                 )
  239. )
  240. (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  241.                      "Ist diese Option inaktiv (auf 'Nein' gesetzt), wird das CyberGraphX Startlogo "
  242.                      "nicht angezeigt während eines Neustarts des Rechners."
  243.                 )
  244. )
  245.  
  246. (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  247.                      "Wenn diese Option aktiv ist, verbraucht CyberGraphX weniger Speicher in kleiner oder gleich "
  248.                      "16 Farben, weil im Fast RAM Speicher ein planares Abbild des Videospeichers gehalten wird "
  249.              "und im Videospeicher ein Chunky Abbild. Die Option NOCHIPSCREEN muß ebenfalls aktiv sein."
  250.                 )
  251. )
  252.  
  253.  
  254. )
  255. )
  256.  
  257. ;********************************************************************************
  258. ; Main Part of the Installer
  259. ;********************************************************************************
  260.  
  261. ;********************************************************************************
  262. ; Find out whats in the env vars...
  263. ;********************************************************************************
  264. (procedure Read_Env
  265.  
  266. (set hires 0)    (set cpup2c 0)  (set hide15bit 0) (set alertemu 0)
  267. (set nochip 0)   (set nopass 0)  (set keepamiga 0) (set planes2 0)
  268. (set bootlogo 0) (set savemem 0)
  269.  
  270.  
  271. (if (> (exists ("env:cybergraphics/HIRESCRSR")) 0)
  272.   (if (= 1 (getenv "cybergraphics/HIRESCRSR")) (set hires 1) )
  273. )
  274.  
  275.  
  276. (if (> (exists ("env:cybergraphics/CPUP2C")) 0)
  277.   (if (= 1 (getenv "cybergraphics/CPUP2C")) (set cpup2c 1) )
  278. )
  279.  
  280.  
  281. (if (> (exists ("env:cybergraphics/HIDE15BIT")) 0)
  282.   (if (= 1 (getenv "cybergraphics/HIDE15BIT")) (set hide15bit 1) )
  283. )
  284.  
  285.  
  286. (if (> (exists ("env:cybergraphics/ALERTEMU")) 0)
  287.   (if (= 1 (getenv "cybergraphics/ALERTEMU")) (set alertemu 1) )
  288. )
  289.  
  290.  
  291. (if (> (exists ("env:cybergraphics/NOCHIPSCREEN")) 0)
  292.   (if (= 1 (getenv "cybergraphics/NOCHIPSCREEN")) (set nochip 1) )
  293. )
  294.  
  295.  
  296. (if (> (exists ("env:cybergraphics/NOPASSTHROUGH")) 0)
  297.   (if (= 1 (getenv "cybergraphics/NOPASSTHROUGH")) (set nopass 1) )
  298. )
  299.  
  300.  
  301. (if (> (exists ("env:cybergraphics/KEEPAMIGAVIDEO")) 0)
  302.   (if (= 1 (getenv "cybergraphics/KEEPAMIGAVIDEO")) (set keepamiga 1) )
  303. )
  304.  
  305.  
  306. (if (> (exists ("env:cybergraphics/PLANES2FAST")) 0)
  307.   (if (= 1 (getenv "cybergraphics/PLANES2FAST")) (set planes2 1) )
  308. )
  309.  
  310.  
  311. (if (> (exists ("env:cybergraphics/BOOTLOGO")) 0)
  312.   (if (= 1 (getenv "cybergraphics/BOOTLOGO")) (set bootlogo 1) )
  313. )
  314.  
  315. (if (> (exists ("env:cybergraphics/SAVEMEM")) 0)
  316.   (if (= 1 (getenv "cybergraphics/SAVEMEM")) (set savemem 1) )
  317. )
  318.  
  319. )
  320.  
  321. ;********************************************************************************
  322. ; Save the env vars...
  323. ;********************************************************************************
  324. (procedure Save_Env
  325.  
  326.  
  327.  
  328. (if (= cpup2c 0) ( (run "setenv cybergraphics/CPUP2C 0")
  329.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
  330. )
  331.  
  332. (if (= cpup2c 1) ( (run "setenv cybergraphics/CPUP2C 1")
  333.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
  334. )
  335.  
  336. ;***
  337.  
  338. (if (= HIRESCRSR 0) ( (run "setenv cybergraphics/HIRESCRSR 0")
  339.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
  340. )
  341.  
  342. (if (= HIRESCRSR 1) ( (run "setenv cybergraphics/HIRESCRSR 1")
  343.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
  344. )
  345.  
  346. ;***
  347.  
  348. (if (= HIDE15BIT 0) ( (run "setenv cybergraphics/HIDE15BIT 0")
  349.      (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
  350. )
  351.  
  352. (if (= HIDE15BIT 1) ( (run "setenv cybergraphics/HIDE15BIT 1")
  353.      (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
  354. )
  355.  
  356. ;***
  357.  
  358.  
  359. (if (= ALERTEMU 0) ( (run "setenv cybergraphics/ALERTEMU 0")
  360.      (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
  361. )
  362.  
  363. (if (= ALERTEMU 1) ( (run "setenv cybergraphics/ALERTEMU 1")
  364.      (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
  365. )
  366.  
  367. ;***
  368.  
  369. (if (= NOCHIPSCREEN 0) ( (run "setenv cybergraphics/NOCHIPSCREEN 0")
  370.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  371. )
  372.  
  373. (if (= NOCHIPSCREEN 1) ( (run "setenv cybergraphics/NOCHIPSCREEN 1")
  374.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  375. )
  376.  
  377. ;***
  378.  
  379. (if (= PLANES2FAST 0) ( (run "setenv cybergraphics/PLANES2FAST 0")
  380.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  381. )
  382.  
  383. (if (= PLANES2FAST 1) ( (run "setenv cybergraphics/PLANES2FAST 1")
  384.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  385. )
  386.  
  387. ;***
  388.  
  389. (if (= NOPASSTHROUGH 0) ( (run "setenv cybergraphics/NOPASSTHROUGH 0")
  390.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  391. )
  392.  
  393. (if (= NOPASSTHROUGH 1) ( (run "setenv cybergraphics/NOPASSTHROUGH 1")
  394.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  395. )
  396.  
  397. ;***
  398.  
  399. (if (= KEEPAMIGAVIDEO 0) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 0")
  400.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  401. )
  402.  
  403. (if (= KEEPAMIGAVIDEO 1) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 1")
  404.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  405. )
  406.  
  407. ;***
  408.  
  409. (if (= BOOTLOGO 0) ( (run "setenv cybergraphics/BOOTLOGO 0")
  410.      (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
  411. )
  412.  
  413. (if (= BOOTLOGO 1) ( (run "setenv cybergraphics/BOOTLOGO 1")
  414.      (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
  415. )
  416.  
  417. ;***
  418.  
  419. (if (= SAVEMEM 0) ( (run "setenv cybergraphics/SAVEMEM 0")
  420.      (copyfiles (source "ENV:cybergraphics/SAVEMEM") (dest "ENVARC:cybergraphics") ) )
  421. )
  422.  
  423. (if (= SAVEMEM 1) ( (run "setenv cybergraphics/SAVEMEM 1")
  424.      (copyfiles (source "ENV:cybergraphics/SAVEMEM") (dest "ENVARC:cybergraphics") ) )
  425. )
  426.  
  427.  
  428. )
  429. ;****************************************
  430. ; Short Env Set
  431. ;****************************************
  432. (procedure SetEnvShort
  433.  
  434. (Read_Env)
  435.  
  436. (set envmask 0)
  437.  
  438. (if (= alertemu  1) (set envmask (+ envmask 1)) )
  439. (if (= bootlogo  1) (set envmask (+ envmask 2)) )
  440. (if (= cpup2c    1) (set envmask (+ envmask 4)) )
  441. (if (= hide15bit 1) (set envmask (+ envmask 8)) )
  442. (if (= hires     1) (set envmask (+ envmask 16)) )
  443. (if (= keepamiga 1) (set envmask (+ envmask 32)) )
  444. (if (= nochip    1) (set envmask (+ envmask 64)) )
  445. (if (= nopass    1) (set envmask (+ envmask 128)) )
  446. (if (= planes2   1) (set envmask (+ envmask 256)) )
  447. (if (= savemem   1) (set envmask (+ envmask 512)) )
  448.  
  449.  
  450. (set envmask1 (askoptions (choices " ALERTEMU" " BOOTLOGO" " CPUP2C"
  451.                                    " HIDE15BIT" " HIRESCRSR"  " KEEPAMIGAVIDEO"
  452.                                    " NOCHIPSCREEN" " NOPASSTHROUGH" " PLANES2FAST"
  453.                                    " SAVEMEM")
  454.                (prompt #currenv)
  455.                        (help #currenv)
  456.                    (default envmask)
  457.        )
  458. )
  459.  
  460.  
  461. (if (IN envmask1 0) (set ALERTEMU  1)      (set ALERTEMU  0) )
  462. (if (IN envmask1 1) (set BOOTLOGO  1)      (set BOOTLOGO  0) )
  463. (if (IN envmask1 2) (set cpup2c    1)      (set cpup2c    0) )
  464. (if (IN envmask1 3) (set HIDE15BIT 1)      (set HIDE15BIT 0) )
  465. (if (IN envmask1 4) (set HIRESCRSR 1)      (set HIRESCRSR 0) )
  466. (if (IN envmask1 5) (set KEEPAMIGAVIDEO 1) (set KEEPAMIGAVIDEO 0) )
  467. (if (IN envmask1 6) (set NOCHIPSCREEN 1)   (set NOCHIPSCREEN 0) )
  468. (if (IN envmask1 7) (set NOPASSTHROUGH 1)  (set NOPASSTHROUGH 0) )
  469. (if (IN envmask1 8) (set PLANES2FAST 1)    (set PLANES2FAST 0) )
  470. (if (IN envmask1 9) (set SAVEMEM 1)        (set SAVEMEM 0) )
  471.  
  472.  
  473. (Save_Env)
  474.  
  475. )
  476.  
  477. ;****************************************
  478. ; Long Env Set
  479. ;****************************************
  480. (procedure SetEnvLong
  481.  
  482. (Read_Env)
  483.  
  484. ;********************************************************************************
  485. ; CPUP2C
  486. ;********************************************************************************
  487. (set cpup2c   (askchoice    (choices #no #yes)
  488.                            (prompt (cat #cpup2c " " #currset))
  489.                            (help   (cat #cpup2c " " #currset))
  490.                          (default cpup2c)
  491.           )
  492. )
  493.  
  494. ;********************************************************************************
  495. ; HIRESCRSR
  496. ;********************************************************************************
  497. (set HIRESCRSR (askchoice    (choices #no #yes)
  498.                            (prompt (cat #hirescrsr " " #currset))
  499.                            (help   (cat #hirescrsr " " #currset))
  500.                          (default hires)
  501.            )
  502. )
  503.  
  504. ;********************************************************************************
  505. ; HIDE15BIT
  506. ;********************************************************************************
  507. (set HIDE15BIT (askchoice    (choices #no #yes)
  508.                            (prompt (cat #hide15bit " " #currset))
  509.                            (help   (cat #hide15bit " " #currset))
  510.                          (default hide15bit)
  511.            )
  512. )
  513.  
  514. ;********************************************************************************
  515. ; ALERTEMU
  516. ;********************************************************************************
  517. (set ALERTEMU  (askchoice    (choices #no #yes)
  518.                            (prompt (cat #alertemu " " #currset))
  519.                            (help   (cat #alertemu " " #currset))
  520.                          (default alertemu)
  521.            )
  522. )
  523.  
  524. ;********************************************************************************
  525. ; NOCHIPSCREEN
  526. ;********************************************************************************
  527. (set NOCHIPSCREEN (askchoice    (choices #no #yes)
  528.                            (prompt (cat #nochip " " #currset))
  529.                            (help   (cat #nochip " " #currset))
  530.                          (default nochip)
  531.               )
  532. )
  533.  
  534. ;********************************************************************************
  535. ; PLANES2FAST
  536. ;********************************************************************************
  537. (set PLANES2FAST (askchoice    (choices #no #yes)
  538.                            (prompt (cat #planes2 " " #currset))
  539.                            (help   (cat #planes2 " " #currset))
  540.                          (default planes2)
  541.               )
  542. )
  543.  
  544. ;********************************************************************************
  545. ; NOPASSTHROUGH
  546. ;********************************************************************************
  547. (set NOPASSTHROUGH (askchoice    (choices #no #yes)
  548.                            (prompt (cat #nopass " " #currset))
  549.                            (help   (cat #nopass " " #currset))
  550.                          (default nopass)
  551.               )
  552. )
  553.  
  554. ;********************************************************************************
  555. ; KEEPAMIGAVIDEO
  556. ;********************************************************************************
  557. (set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
  558.                            (prompt (cat #keepamiga " " #currset))
  559.                            (help   (cat #keepamiga " " #currset))
  560.                          (default keepamiga)
  561.               )
  562. )
  563.  
  564. ;********************************************************************************
  565. ; BOOTLOGO
  566. ;********************************************************************************
  567. (set BOOTLOGO     (askchoice    (choices #no #yes)
  568.                            (prompt (cat #bootlogo  " " #currset))
  569.                            (help   (cat #bootlogo  " " #currset))
  570.                          (default bootlogo)
  571.               )
  572. )
  573.  
  574. ;********************************************************************************
  575. ; BOOTLOGO
  576. ;********************************************************************************
  577. (set SAVEMEM      (askchoice    (choices #no #yes)
  578.                            (prompt (cat #savemem  " " #currset))
  579.                            (help   (cat #savemem  " " #currset))
  580.                          (default savemem)
  581.               )
  582. )
  583.  
  584.  
  585.  
  586. (Save_Env)
  587.  
  588. ;****
  589. )
  590.  
  591.  
  592.  
  593.  
  594. ;********************************************************************************
  595. ; Change Set Monitor Defaults mode
  596. ;********************************************************************************
  597. (procedure SetMonitor
  598.  
  599. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  600.                                "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  601.                                "A2410" "DraCoAltais" "Merlin"
  602.              (prompt #board)
  603.                      (help "Select a Gfx Board")
  604.                    (default #BGuess)
  605.                  )
  606.           )
  607. )
  608.  
  609.  
  610. (if (= board 0) ((set DirText "PicassoMonitor")     (set Dir "Picasso")     ))
  611. (if (= board 1) ((set DirText "SpectrumMonitor")    (set Dir "Spectrum")    ))
  612. (if (= board 2) ((set DirText "PiccoloMonitor")     (set Dir "Piccolo")     ))
  613. (if (= board 3) ((set DirText "DominoMonitor")      (set Dir "Domino")      ))
  614. (if (= board 4) ((set DirText "RetinaZ3Monitor")    (set Dir "RetinaZ3")    ))
  615. (if (= board 5) ((set DirText "PiccoSD64Monitor")   (set Dir "PiccoSD64")   ))
  616. (if (= board 6) ((set DirText "CyberVisionMonitor") (set Dir "CyberVision") ))
  617. (if (= board 7) ((set DirText "A2410Monitor")       (set Dir "A2410")       ))
  618. (if (= board 8) ((set DirText "RetinaZ3Monitor")    (set Dir "DraCoAltais") ))
  619. (if (= board 9) ((set DirText "MerlinMonitor")      (set Dir "Merlin")      ))
  620.  
  621.  
  622. (set runstring (cat "search" " ENVARC:cybergraphics/" DirText))
  623.  
  624. (set runstring1 (cat runstring " 80"))  (if (= (run runstring1) 0) (set MonitorIS "80"))
  625. (set runstring1 (cat runstring " 64"))  (if (= (run runstring1) 0) (set MonitorIS "64"))
  626. (set runstring1 (cat runstring " 57"))  (if (= (run runstring1) 0) (set MonitorIS "57"))
  627. (set runstring1 (cat runstring " 48"))  (if (= (run runstring1) 0) (set MonitorIS "48"))
  628. (set runstring1 (cat runstring " 38"))  (if (= (run runstring1) 0) (set MonitorIS "38"))
  629. (set runstring1 (cat runstring " 35"))  (if (= (run runstring1) 0) (set MonitorIS "35"))
  630. (set runstring1 (cat runstring " 31"))  (if (= (run runstring1) 0) (set MonitorIS "31"))
  631. (set runstring1 (cat runstring " 15"))  (if (= (run runstring1) 0) (set MonitorIS "15"))
  632.  
  633. (set #envcyb  (cat "ENVARC:cybergraphics/" Dir))
  634. (set #envcyb1 (cat "ENVARC:cybergraphics/" DirText))
  635.  
  636. (set #looklike (cat "Monitor-" MonitorIS "khz"))
  637. (if (= MonitorIS "A Custom Setting File") (set #looklike ""))
  638.  
  639. (set    Name (askfile (prompt (cat #lookslikemonitor MonitorIS))
  640.                 (help   #lookslikemonitor)
  641.                         (default (tackon #envcyb #looklike))
  642.                )
  643. )
  644.  
  645.  
  646. (set #updatemonitor (cat #youwantto "\n\n" DirText "\n\n" #to "\n\n" Name "\n") )
  647.  
  648.  
  649. (if (<> (fileonly Name) "")
  650.  (
  651.  
  652.    (set todo  (askchoice (choices #yes #no)
  653.                  (prompt #updatemonitor)
  654.                   (help #updatemonitor)
  655.                     (default 0)
  656.  
  657.            )
  658.    )
  659.  
  660.  
  661.    (if (= todo 0)
  662.       (
  663.          (if (> (exists (#envcyb)) 0)
  664.            (
  665.             (copyfiles (source (cat #envcyb1 ) (dest "ENVARC:cybergraphics/") (newname (cat #envcyb1 ".backup")) ) )
  666.             (delete #envcyb1)
  667.             (textfile (append (fileonly Name)) (dest #envcyb1) )
  668.            )
  669.          )
  670.       )
  671.    )
  672.  
  673.  )
  674. )
  675.  
  676.  
  677. ;****
  678. )
  679.  
  680.  
  681.  
  682.  
  683.  
  684. ;********************************************************************************
  685. ;
  686. ;ASK DEFAULT GFX board  for changing CVMode
  687. ;
  688. ;********************************************************************************
  689. (procedure SetCVMode
  690.  
  691. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  692.                                "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  693.                                "A2410" "DraCoAltais" "Merlin"
  694.              (prompt #board)
  695.                      (help "Select a Gfx Board")
  696.                    (default #BGuess)
  697.                  )
  698.           )
  699. )
  700.  
  701.  
  702.   (set    Name1 (askfile (prompt #askwereisCVMode)
  703.                 (help   #askwereisCVMode)
  704.                 (default "sys:CVMode")
  705.                 )
  706.   )
  707.  
  708.  
  709.   (set Name Name1)
  710.  
  711.   (if (= (fileonly Name1) "") (set Name (tackon Name1 "CVMode")) )
  712.  
  713.   (if (< (exists Name) 1) (abort #noicon) )
  714.   (if (< (exists (cat Name ".info")) 1) (abort #noicon) )
  715.  
  716.  
  717.  
  718.  
  719.  
  720.   (tooltype    (dest Name)
  721.                   (if (= board 0) (settooltype "BOARD" "Picasso") )
  722.                         (if (= board 1) (settooltype "BOARD" "Spectrum") )
  723.                         (if (= board 2) (settooltype "BOARD" "Piccolo") )
  724.                         (if (= board 3) (settooltype "BOARD" "Domino") )
  725.                         (if (= board 4) (settooltype "BOARD" "RetinaZ3") )
  726.                         (if (= board 5) (settooltype "BOARD" "PiccoSD64") )
  727.                         (if (= board 6) (settooltype "BOARD" "CyberVision") )
  728.                         (if (= board 7) (settooltype "BOARD" "A2410") )
  729.                         (if (= board 8) (settooltype "BOARD" "RetinaZ3") )
  730.                         (if (= board 9) (settooltype "BOARD" "Merlin") )
  731.   )
  732.  
  733.  
  734.  
  735. )
  736.  
  737. ;********************************************************************************
  738. ; Catch Loop
  739. ;********************************************************************************
  740. (procedure MainLoop 
  741.  
  742.   (set ja (askchoice (choices #quickchangeenv #changeenv #changemonitor #changecv #quit)
  743.                      (prompt (cat "\n" #askchange "\n"))
  744.                      (help   #askchange)
  745.                         (default ja)
  746.           )
  747.   )
  748. )
  749.  
  750.  
  751. (while (<> ja 4)
  752.   (MainLoop)
  753.   (if (= ja 0) (SetEnvShort) )   (if (= ja 1) (SetEnvLong) )
  754.   (if (= ja 2) (SetMonitor) )    (if (= ja 3) (SetCVMode) )
  755. )
  756.  
  757.  
  758. (set @default-dest "ENVARC:cybergraphics")
  759. (exit "CyberPrefsX is Done.")
  760.  
  761.  
  762.  
  763.